home *** CD-ROM | disk | FTP | other *** search
/ Mesolore / Mesolore - Disc 2.iso / mac / data / Selden.dir / 00005_Script_Nav(scroll) Courtyard -1 < prev    next >
Text File  |  2001-03-05  |  400b  |  18 lines
  1. on mouseDown
  2.   GenLeaveCtyd
  3.   cursor 130
  4.   set ctr = 1
  5.   set cNum = integer(char 2 of the frameLabel)
  6.   repeat while the mouseDown or ctr = 1
  7.     set cNum = (cNum-1) mod 4
  8.     if cNum < 0 then set cNum = 3
  9.     puppetTransition 12,2,30,0
  10.     goto ("C" & cNum)
  11.     startTimer
  12.     repeat while the timer < 30
  13.     end repeat
  14.     set ctr = ctr-1
  15.   end repeat
  16.   GenEnterCtyd
  17.   cursor 0
  18. end